home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #10 / Commodore_Disk_User_Vol.3_10_1990_-.d64 / sec v2.00 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 lines
  1. 100 poke53280,0:poke53281,0:poke 650,128:print"[147]":print chr$(14)
  2. 110 print"[159]             [211]ecurity [214]2.00[157][157][157][157][157][157][157][157][157][157][157][157][157][157][158][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 200 print"      [208]lease enter the time [200][200][205][205][211][211][157][157][157][157][157][157]";
  4. 300 for x = 1 to 6
  5. 400 get a$(x):if a$(x)=""then goto 400
  6. 500 ifasc(a$(x))<48orasc(a$(x))>57 then goto 400
  7. 600 print a$(x);
  8. 700 next x
  9. 800 t$=a$(1)+a$(2)+a$(3)+a$(4)+a$(5)+a$(6)
  10. 900 if val(t$)>235959orval(t$)<000000orlen(t$)<>6 then goto 200
  11. 1000 if  val(left$(t$,2))>23then goto 200
  12. 1100 if val(mid$(t$,3,2))>59then goto 200
  13. 1200 if val(right$(t$,2))>59then goto 200
  14. 1250 print:print"       [208]ress a key to start clock."
  15. 1260 get l$:if l$ = "" then goto 1260
  16. 1300 ti$=t$
  17. 1310 print
  18. 1400 print tab(16)"[212]ime set.":for x = 1 to 2000:next x:print"[147]"
  19. 1500 print"[208]lug the wire into port #1 and close    the door.";
  20. 1700 if peek(145)=255 then goto 1700
  21. 1800 print"[147][196]oor shut. [211]canning........."
  22. 1900 ifpeek(145)=247thengoto2100
  23. 2000 goto 3100
  24. 2100 ifpeek(56320)=111then goto 2300
  25. 2200 goto 1900
  26. 2300 print"[208]ressure pad depressed at ";ti$
  27. 2400 if peek(56320)=111thengoto 2400
  28. 2500 goto 1900
  29. 2600 rem
  30. 2700 rem *******************************
  31. 2800 rem *           check!            *
  32. 2900 rem *******************************
  33. 3000 rem
  34. 3100 b = b + 1
  35. 3200 q$=ti$
  36. 3300 print"[194]reak in no.";b;"started at ";q$
  37. 3400 ifpeek(145)=247thenprint"[194]reak in no.";b;"finished at ";ti$
  38. 3450 ifpeek(145)=247thenw=val(ti$)-val(q$):goto 4000
  39. 3500 ifpeek(56320)=111then goto 3700
  40. 3600 goto 3400
  41. 3700 print"[208]ressure pad depressed at ";ti$
  42. 3800 if peek(56320)=111thengoto 3800
  43. 3900 goto 3400
  44. 4000 print"[204]ength of break in was ";w:goto 4400
  45. 4100 goto 4300
  46. 4200 print"[204]ength of break in was ";w:goto 4400
  47. 4300 goto 3400
  48. 4400 goto 1900
  49.